﻿Imports System.Data.OleDb
Public Class ChucVuDAO
    Public Function GetChucVu() As DataTable
        Dim sql As String = "select * from ChucVu"
        Dim dt As New DataTable
        Dim cn As OleDbConnection = DataProvider.OpenConnect
        Dim da As New OleDbDataAdapter(sql, cn)
        da.Fill(dt)
        cn.Close()
        Return dt
    End Function
End Class